home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / pstex / examples / postscri.sty < prev    next >
Text File  |  1992-01-27  |  4KB  |  118 lines
  1. %
  2. % Postscriptbox and psbox macros for use with dvips and pstex.
  3. %
  4. % Neil Hunt, Schlumberger Palo Alto Research.
  5. % hunt@spar.slb.com
  6. %
  7. % HISTORY
  8. %
  9. % $Log:    postscript.sty,v $
  10. % Revision 1.5  89/01/09  13:05:38  hunt
  11. % Updated to use a single .psz file per job rather than a .tps file
  12. % for each included figure.
  13. % 
  14. % Revision 1.4  88/09/20  13:12:18  hunt
  15. % Cosmetic changes
  16. % 
  17. % Revision 1.3  88/08/04  12:33:19  hunt
  18. % A new psbox feature has been added for use with pstex:
  19. % This replaces the old psbox, and simplifies things a lot.
  20. % 
  21. % Revision 1.2  88/08/04  09:50:46  hunt
  22. % Added RXB's psbox hacks:
  23. % {1}    18-Apr-88  Rafael Bracho (rxb) at Schlumberger Austin Systems Center
  24. %     The postscriptbox macros were created by Neil Hunt at SPAR, I've
  25. %     added the psbox ones to use the InsertFile special.  Since I
  26. %     fixed InsertFile, I don't know if we still need the postscriptbox
  27. %     special, though.
  28. % 
  29. % Revision 1.1  88/08/04  09:41:01  hunt
  30. % Initial revision - useful with early embed program versions.
  31. %
  32.  
  33. %
  34. % Primitive: postscriptbox macros.
  35. % ===============================
  36. %
  37. % \postscriptbox{w}{h}{file}        Box of size w, h.
  38. % \postscriptbox(w,h){file}        Picture env. box of size w, h.
  39. %
  40.  
  41. \def \postscriptbox{\@ifnextchar ({\@postscriptpicbox}{\@postscriptbox}}
  42.  
  43. \def \@postscriptpicbox(#1,#2)#3{%
  44. \@postscriptbox{#1\unitlength}{#2\unitlength}{#3}}
  45.  
  46. \def \@postscriptbox#1#2#3{%    <width> <height> <file>
  47. \@xdim=#1\divide\@xdim 1000\multiply\@xdim\mag%
  48. \@ydim=#2\divide\@ydim 1000\multiply\@ydim\mag%
  49. \mbox{\vbox to #2{\vfil\hbox to #1%
  50. {\special{postscriptbox {\the\@xdim}{\the\@ydim}{#3}}\hfil}}}}
  51.  
  52. %
  53. % Higher level macros.
  54. % ===================
  55. %
  56. % \psbox[dimensions-options]{psfile}
  57. % 1    \psbox writes to .aux ``\psboxaux[dimensions-options]{psfile}''
  58. % 2    pstex reads .aux files, writes \pssize macros to .psz file.
  59. % 3    .psz file is input, defines size macros by figure name.
  60. % 4    \psbox invokes size macros for each figure.
  61. %
  62.  
  63. % Counters to disambiguate multiple references to the same figure.
  64. % t@psctr counts multiple occurrences of psboxaux's in .aux file.
  65. % f@psctr counts multiple occurrences of pssize's in .psz file.
  66. \newcounter{t@psctr}
  67. \newcounter{f@psctr}
  68.  
  69. \def\psbox{\@ifnextchar [{\@psbox}{\@psbox[]}}
  70.  
  71. %
  72. % First we write an entry on the aux file: psboxaux[args]{filename}
  73. % Next we generate the handle f@name used for this figure:
  74. % we check whether the tag `t@<filename>' is defined:
  75. %    If not, this is the first time PS file <filename> has been used,
  76. %    so we def \f@name = f@<filename>, and define the tag t@<filename>.
  77. %    Otherwise, this filename has been used before, and we will add
  78. %    a unique number to the name to disambiguate:
  79. %    we def \f@name = fN@<filename> where N is the value of t@psctr++.
  80. % Now we try to access the \postscriptbox macro which is the expansion
  81. % of \f@name.  If \f@name is undefined, we write a warning, and a placeholder.
  82. %
  83.  
  84. \def\@psbox[#1]#2{%
  85. \if@filesw\immediate\write\@auxout{\string\psboxaux{#1}{#2}}\fi
  86. \@ifundefined{t@#2}%
  87. {\def\f@name{f@#2}\global\@namedef{t@#2}{\relax}}%    % t@#2 undef'ed
  88. {\def\f@name{f\arabic{t@psctr}@#2}\stepcounter{t@psctr}}% t@#2 defined
  89. \@ifundefined{\f@name}{%
  90. \framebox[2in]{Figure {\tt #2}\rule[-1in]{0in}{2in}}%    % \f@name undef
  91. \@warning{Figure `#2' on page \thepage \space undefined}}%
  92. {\csname \f@name \endcsname}}                % \f@name def'd
  93.  
  94. %
  95. % Prepare to read the .aux file:
  96. %    Define psboxaux as null; it is only used as a flag for pstex.
  97. %
  98.  
  99. \let\psboxaux\@gobbletwo
  100.  
  101. %
  102. % Prepare to read the .psz file:
  103. %    Define \pssize as a macro to build f@name in an identical manner to
  104. %    above, and then define \f@name as the proper \postscriptbox macro.
  105. %
  106.  
  107. \def\pssize#1#2#3{%
  108. \@ifundefined{f@#3}%
  109. {\def\f@name{f@#3}}%                    % f@#2 undef'ed
  110. {\def\f@name{f\arabic{f@psctr}@#3}\stepcounter{f@psctr}}% f@#2 defined
  111. \global\@namedef{\f@name}{\postscriptbox{#1}{#2}{#3}}}
  112.  
  113. %
  114. % Read the .psz file to define the sizes for each figure.
  115. %
  116.  
  117. \@input{\jobname.psz}
  118.